home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / slides.sda / TITLE CREATOR (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  4KB  |  126 lines
  1. 90 SS$="                           "
  2. 100 IF A=0THENA=1:GOTO 710
  3. 110 GOTO1050
  4. 120 R=1-R:PRINTR$(R)A$R$(1-R)L$;:GOSUB190:GOTO120
  5. 130 MC=MC+1:IFMC>300THENGOSUB1140:MC=0:NC=NC+1:IFNC>3THENNC=0
  6. 140 IFMC>219THENRETURN
  7. 150 Z8=V:Z9=H:V=24:H=0:GOSUB600:PC=INT(MC):PRINTR$(1);
  8. 160 IFPC<39THENPRINTSPC(39-PC)LEFT$(M$(NC),PC);:GOTO180
  9. 170 PRINTLEFT$(LEFT$(MID$(M$(NC),PC-38),39)+SS$,39);
  10. 180 V=Z8:H=Z9:GOSUB600:RETURN
  11. 190 GETK$:IFK$=""THEN130
  12. 200 MC=210:IFNC=3THENNC=1
  13. 210 IFK$=""ORK$="[145]"ORK$=""ORK$="[157]"THENKB$=K$:J$="":GOTO470
  14. 220 IFK$="[147]"THENJ$="":GOTO1230
  15. 230 IFASC(K$)=13ANDK$<>J$THENH=0:GOSUB600:GOSUB560:GOSUB610:J$=K$:RETURN
  16. 240 IFASC(K$)=13THENRETURN
  17. 250 IFASC(K$)=34THENK$="'"
  18. 260 IFASC(K$)=20THENK$="[157]"
  19. 270 IFK$=""ANDK$<>J$THENH=0:V=0:GOSUB600:GOSUB560:GOSUB610:J$=K$:RETURN
  20. 280 IFK$=""THENRETURN
  21. 290 IFASC(K$)=8THENMC=0:NC=2:GOTO190
  22. 300 IFASC(K$)=141ANDK$<>J$THENH=39:V=23:GOSUB600:GOSUB560:GOSUB610
  23. 305 IFASC(K$)=141ANDK$<>J$THENJ$=K$:RETURN
  24. 310 IFASC(K$)=141THEN RETURN
  25. 320 IFASC(K$)=148THEN RETURN
  26. 330 IFASC(K$)=12 THEN POKE53272,23:RETURN
  27. 340 IFASC(K$)=21 THEN POKE53272,21:RETURN
  28. 350 J$="":IFK$="[133]"THEN GOSUB 1250:GOSUB630:RETURN
  29. 360 IFK$="[134]"THENJ=1-J:GOSUB1150:GOTO530
  30. 370 IFK$="[135]"THENK=1-K:GOSUB1150:RETURN
  31. 380 IFK$="[136]"THENGOSUB1250:K$=A$
  32. 390 IFK$="[137]"THEN GOSUB1250:POKE53280,(PEEK(53280)AND15)+1:RETURN
  33. 400 IFK$="[138]"THEN GOSUB1250:POKE53281,(PEEK(53281)AND15)+1:RETURN
  34. 410 IFK$="[139]"THENGOSUB1250:GOTO840
  35. 420 IFK$="[140]"THENPRINTO$B$;:GOTO860
  36. 430 PRINTO$B$;:IFKTHENPRINTR$;
  37. 440 PRINTK$O$;
  38. 450 GOSUB560:GOSUB620:IFV>23THENPRINTL$;:GOTO450
  39. 460 RETURN
  40. 470 IFKB$=""ANDH<39THENH=H+1:GOTO540
  41. 480 IFKB$=""ANDH<39THENH=H+1:GOTO540
  42. 490 IFKB$="[157]"ANDH>0THENH=H-1:GOTO540
  43. 500 IFKB$=""ANDV<23THENV=V+1:GOTO540
  44. 510 IFKB$="[145]"ANDV>0THENV=V-1:GOTO540
  45. 520 RETURN
  46. 530 IFJ=0THENK=0
  47. 540 GOSUB600:GOSUB560:IFJTHENCH=YR:CO=CR
  48. 550 GOSUB610:RETURN
  49. 560 V1=PEEK(214):H1=PEEK(211)
  50. 570 IFH1>39THENH1=H1-40:GOTO570
  51. 580 IFV1>24THENV1=V1-25:GOTO580
  52. 590 V=V1:H=H1:C=V*40+H+1024:CH=PEEK(C):CO=PEEK(C+54272):RETURN
  53. 600 POKE781,V:POKE782,H:POKE783,0:SYS 65520:RETURN
  54. 610 POKECL,HL:POKECL+54272,OL:IFKTHENIFHL<128THENPOKECL,HL+128
  55. 620 CL=C:HL=CH:OL=CO:RETURN
  56. 630 GOSUB1140:Z3=V:Z4=H:V=24:H=0:GOSUB600
  57. 635 PRINT"PRESS NEW CURSOR CHARACTER.[146]";
  58. 640 GETK$:IFK$=""THEN640
  59. 650 GETKB$:IFKB$<>""THEN650
  60. 660 IFASC(K$)>127ANDASC(K$)<161THENK$=A$
  61. 670 IFASC(K$)<35THENK$=A$
  62. 680 A$=K$:V=Z3:H=Z4:GOSUB1150
  63. 690 Z1=V:Z2=H:V=24:H=1:GOSUB600:PRINTO$A$;:YR=PEEK(1985):CR=PEEK(56257)
  64. 700 V=Z1:H=Z2:GOSUB600:POKE1985,32:RETURN
  65. 710 POKE56,32:POKE644,32:CLR
  66. 715 A$="[166]":B$=" [157]":L$="[157]":R$="":O$="[146]":POKE650,128
  67. 720 POKE53280,6:POKE53281,12:POKE646,0
  68. 730 DIMQ$(1):Q$(0)="PRESS Y KEY TO DESTROY THIS SCREEN![146]"
  69. 740 Q$(1)="PRESS Y KEY TO SAVE THIS SCREEN.[146]":QQ=0
  70. 750 DIMM$(3):M$(0)="*SCREEN CREATOR*   M. KERYAN --- PRESS CONTROL "
  71. 760 M$(0)=M$(0)+"H FOR HELP. USE ALL CHARACTER KEYS, SYMBOLS, CURSOR KEYS"
  72. 770 M$(0)=M$(0)+", ETC. AS USUAL.                                        "
  73. 780 M$(2)="F1:SELECT CURSOR CHAR.    F3:TOGGLE DRAW MODE  F5:TOGGLE REVER"
  74. 790 M$(2)=M$(2)+"SE MODE  F7:PRINT CURSOR  F2:BORDER COLOR  F4:BACKGROUND"
  75. 800 M$(2)=M$(2)+" COLOR  F6:LOAD SCREEN  F8:SAVE SCREEN            "
  76. 810 DIM F$(1):F$(0)="<OFF>":F$(1)="<ON>":GOSUB1150
  77. 820 A=2:DIMR$(1):R$(0)="":R$(1)="[146]":PRINT"[147]";
  78. 830 J=0:K=0:F=0:H=0:V=0:GOSUB690:GOSUB560:GOSUB620:GOTO120
  79. 840 GOSUB1180:IFK$<>"Y"THEN1040
  80. 850 GOSUB1250:INPUT"[147]FILE NAME TO LOAD[146]";F$:LOAD F$,8,1
  81. 860 QQ=1:GOSUB1180:IFK$="Y"THEN880
  82. 870 GOTO1040
  83. 880 GOSUB1140:V=24:H=0:GOSUB600:PRINT"NOW SAVING SCREEN, PLEASE WAIT.[146]";
  84. 890 FORI=1024TO1700:POKEI+23552,PEEK(I):NEXTI
  85. 900 GOSUB1140
  86. 910 FORI=1701TO2047:POKEI+23552,PEEK(I):NEXTI
  87. 920 GOSUB1250:FORI=55296TO56319:POKEI-29696,PEEK(I):NEXTI
  88. 930 GOSUB1250:POKE26624,PEEK(53280)
  89. 935 POKE26625,PEEK(53281):POKE26626,PEEK(53272)
  90. 940 GOSUB1140:V=24:H=0:GOSUB600:PRINT"FILE NAME FOR THIS SCREEN?[146]";
  91. 950 F$=""
  92. 960 GETK$:IFK$=""THEN960
  93. 970 GOSUB1250
  94. 975 IFK$=CHR$(20)ANDLEN(F$)>0THENPRINTL$B$;:F$=LEFT$(F$,LEN(F$)-1)
  95. 980 IFK$=CHR$(20)THEN960
  96. 990 IFK$<>CHR$(13)THENF$=F$+K$:PRINTK$;:GOTO960
  97. 1000 GOSUB1250:CLOSE15:OPEN15,8,15:PRINT#15,"I0"
  98. 1010 GOSUB1250:CLOSE2:OPEN2,8,2,F$+",P,W"
  99. 1020 GOSUB1250:PRINT#2,CHR$(0);CHR$(96);
  100. 1030 GOSUB1250:FORI=24576TO26626:PRINT#2,CHR$(PEEK(I));:NEXTI
  101. 1040 GOSUB1250:CLOSE2:CLOSE15:GOSUB1140:H=0:V=0:GOSUB600:GOTO830
  102. 1050 GOSUB1250:FORI=1024TO2047:POKEI,PEEK(I+23552):NEXTI
  103. 1060 GOSUB1250:FORI=55296TO56319:POKEI,PEEK(I-29696):NEXTI
  104. 1070 GOSUB1250:POKE53280,PEEK(26624)
  105. 1075 POKE53281,PEEK(26625):POKE53272,PEEK(26626)
  106. 1080 GOSUB1250:H=0:V=24:GOSUB600:PRINT"PRESS ANY KEY TO CONTINUE......[146]";
  107. 1090 POKE198,0:FORI=1TO200:GOSUB1250
  108. 1100 GETK$:IFK$<>""THENGOSUB1140:GOTO830
  109. 1110 NEXTI:GOSUB1140
  110. 1120 GETK$:GOSUB1250:IFK$=""THEN1120
  111. 1130 GOTO830
  112. 1140 GOSUB1250:POKE781,24:SYS59903:POKE781,V:RETURN
  113. 1150 M$(1)="DRAW MODE = "+F$(J)+"   REVERSE MODE = "
  114. 1155 M$(1)=M$(1)+F$(K)+"   CURSOR CHAR = "+A$
  115. 1160 M$(1)=M$(1)+"                                  ":M$(1)=M$(1)+M$(1)
  116. 1170 M$(3)=M$(1):GOSUB1250:RETURN
  117. 1180 Z1=V:Z2=H:GOSUB1140:V=24:H=0:GOSUB600:GOSUB560:GOSUB610
  118. 1190 PRINTQ$(QQ);:QQ=0:POKE198,0
  119. 1200 GETK$:IFK$=""THENGOSUB1250:GOTO1200
  120. 1210 IFLEFT$(K$,1)="Y"THENK$="Y"
  121. 1220 RETURN
  122. 1230 GOSUB1180:IFK$="Y"THENRUN
  123. 1240 GOTO1040
  124. 1250 G=54272:POKEG+24,15:POKEG+1,110:POKEG+5,9:POKEG+6,9:POKEG+4,17
  125. 1260 POKEG+4,16:RETURN
  126.